;Macro de um exercício da aula em autolisp
;Modelação tridimensional de um copo

(defun c:copo3d () 
;estas três funções são complementares servindo para
;guardar o valor da variável do snap  2d e 3d
;a primeira serve para não se ver os comando executados na linha de comando
	(setvar "CMDECHO" 0)
	(setq ponto (getvar "osmode"))
	(setq 3dponto (getvar "3DOSMODE"))
	
;desliga o 3dsnap	
	(setvar "3dosmode" 0)
	
;desliga o snap 
	(setvar "osmode" 0)
	
;definir o copo;

   (command "circle" "0,0,0"
                "3"
				"")
	    (setq C1 (entlast))
		
	(command "circle" "0,0,1.5"
                "1"
				"")
	    (setq C2 (entlast))
		
	(command "circle" "0,0,3"
                "1"
				"")
	    (setq C3 (entlast))
		
	(command "circle" "0,0,6"
                "5"
				"")
	    (setq C4 (entlast))
		
	(command "circle" "0,0,9"
                "3"
				"")
	    (setq C5 (entlast))
		
	(command "circle" "0,0,6.5"
                "4.5"
				"")
	    (setq C6 (entlast))
	
;criar o  sólido final: copo	

    (command "loft" C1 C2 C3 C4 C5 C6
	
	"" "" "")
		
	
	(setvar "osmode" ponto)
	(setvar "3DOSMODE" 3dponto)
	(setvar "CMDECHO" 1)
	)